| |
 |
|
|
 |
|
|
|
<%
%>
|
|
 |
| |
<%if vakyam ="" then
if adyayam = "" then
adyayam = "1"
end if
set rec = Server.CreateObject("ADODB.RecordSet")
set rtitle = Server.CreateObject("ADODB.RecordSet")
query= "SELECT Master.testament,Master.chapter, master.[book-no], Master.verse_no, Master.verse, Master.new_paragraph, Master.heading, Master.similar_word, Master.foot_note,Master.master_id ,Master.book FROM Master WHERE (((Master.chapter)=" & adyayam &") AND ((Master.book)='" & grandam & "'))"
Err.Clear
On Error Resume Next
rs.open query,cn
If Err.Number <> 0 Then
Response.Write ("\nehn e`yaÃ..")
Response.flush
end if
'Search Variable setting
Response.write("")
Response.Write("BapJw")
else
Response.Write(rec(0))
end if
%>
<%
rec.movenext()
wend
%>
|
| |
|
|
<%end if%>
<%end if%>
| |
<%
if vakyam="" then
if adyayam = "" then
adyayam = "1"
end if
mySQLstr = "SELECT Master.testament,Master.chapter, master.[book-no], Master.verse_no, Master.verse, Master.new_paragraph, Master.heading, Master.similar_word, Master.foot_note,Master.master_id ,Master.book"_
&" FROM Master WHERE Master.book='" & grandam &"' AND Master.chapter="& adyayam & " ORDER BY verse_no"
'instr(Master.book,'" & grandam &"')>0
Err.Clear
On Error Resume Next
rs.open mySQLstr,cn
If Err.Number <> 0 Then
Response.Write ("\nehn e`yaÃ..")
Response.flush
end if
if Not rs.EOF then
if (rs(1)=0) then
response.write("BapJw")
else
response.write(" " &" " & rs(1) &"")
end if
end if
while not rs.eof
if rs(6)<>"0" then
Response.write(""& replace(rs(6),"-","") & " ")
end if
if rs(7) <> 0 then
ss= "SELECT Similar.book, Similar.chapter_start, Similar.chapter_end, Similar.verse_start, Similar.verse_end FROM Similar WHERE Master_ID = "& rs(9) 'VAL
if rs(6)="0" then
Response.write("
")
end if
Set similar = Server.CreateObject("ADODB.RecordSet")
similar.open ss,cn
while not similar.eof
Response.write("(" & similar(0) & " " & similar(1) & ": " & similar(3) & "-" & similar(2) & ": " & similar(4) &" )" & " " )
similar.movenext()
wend
similar.CLOSE()
Response.write("
")
end if
if rs(8)=1 then
Response.write("" & rs(3) & " " )
%>
<%
Response.write("" &" " & replace(rs(4),"-","") &"") 'foot &
else
Response.write("" & rs(3) & " " & replace(rs(4),"-","") &"")
end if
rs.movenext()
wend
rs.close()
%>
<%
elseif adyayam <>"" and vakyam<>"" AND grandam <>"" THEN
mySQLstr = "SELECT Master.*, Master.testament, Master.book, Master.chapter, Master.verse_no FROM Master WHERE ((Master.chapter)=" & adyayam &") AND Master.book='" & grandam &"' AND (Master.verse_no)="& vakyam 'instr(1,Master.book,'" & grandam &"',0)>0
'RESPONSE.WRITE mySQLstr
Err.Clear
On Error Resume Next
rs.open mySQLstr,cn
If Err.Number <> 0 Then
Response.Write ("\nehn e`yaÃ..")
end if
On Error GoTo 0
if Not rs.EOF then
%>
|
| |
<%= Replace(grandam,"-","") %> <%= adyayam%> : <%= vakyam%>
|
|
| |
<%= Replace(rs.Fields(6),"-","") %><%rs.close()%> |
|
<%
else
Response.Write ("\nehn e`yaÃ..")
end if
else
response.redirect("notFound.asp")
end if
%>
|
|
|
|
|
|
|
|
|
